Collection of Tools & Utilities/Collection of Tools and Utilities.iso/ada/c01lab1.zip/SIMLATRS/BUOY_TES.A

Text File | 1992-11-11 | 929b | 40 lines

with Buoy_Sensor_Interface; use Buoy_Sensor_Interface;
with Console;
procedure Buoy_Test is

  procedure Display is
  begin
    for I in BUOY_ID loop
      Update(I);
      Console.Put ("     Buoy ");
      Console.Put (BUOY_ID'IMAGE(I));
      Console.Put (": ");
      Console.Put (FLOAT(Air_Temperature(I)), 3, 1);
      Console.Put ("  ");
      Console.Put (FLOAT(Water_Temperature(I)), 3, 1);
      Console.Put ("  ");
      Console.Put (FLOAT(Wind_Speed(I)), 2, 1);
      Console.Put ("  ");
      if Red_Light(I) = ON then
        Console.Put ('R');
      else
        Console.Put (' ');
      end if;
      if Yellow_Light(I) = ON then
        Console.Put ('Y');
      else
        Console.Put (' ');
      end if;
      Console.New_Line;
    end loop;
  end Display;

begin

  for I in 1..30 loop
    Console.Put_Line ("Monitoring Buoy");
    Display;
  end loop;

end Buoy_Test;